home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / points.fil (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  14KB  |  446 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 20 [143] ** TO OUR BEST KNOWLEDGE THIS
  10. 21 [143]    PROGRAM IS FREE FOR
  11. 22 [143]    DUPLICATION IN CANADA.
  12. 23 [143]    IF YOU HAVE CONTARY
  13. 24 [143]    INFORMATION, PLEASE
  14. 25 [143]    CONTACT COMMODORE CANADA AND
  15. 26 [143]    EVERY EFFORT WILL BE MADE TO
  16. 27 [143]    WITHDRAW COPIES OF THIS
  17. 28 [143]    PROGRAM.
  18. 30 :
  19. 35 [143] +++ INPUT SECTION +++
  20. 40 [151]UO,0:UR$[178]"":UI$[178]""
  21. 42 [139]UL[178]0[167]UL[178]80
  22. 45 [153]"  CMDCMD";:[151]UC,0
  23. 50 [161]UI$:[139]UI$[178]""[167]50
  24. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  25. 60 [139]UI$[178][199](20)[167]105
  26. 62 [139] [195](UR$)[178][177]UL[167]50
  27. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  28. 70 UR$[178]UR$[170]UI$
  29. 75 [153]UI$;
  30. 80 [137]50
  31. 85 [143] +++ CHECK FOR HELP REQUEST +++
  32. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  33. 95 [139]UF[178]1[167][141]240
  34. 100 UF[178]0:[153]:[142]
  35. 102 [143] ++ CHECK DELETE ++
  36. 105 [139][195](UR$)[179]1[167]50
  37. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  38. 115 [153]"CMD  CMDCMD";:[137]50
  39. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  40. 125 [139][195](US$)[178]0[167]150
  41. 127 US$[178]US$[170]UX$
  42. 130 [129]US[178]1[164][195](US$)
  43. 135 [139]UI$[178][202](US$,US,1)[167][142]
  44. 140 [130]
  45. 145 UI$[178]"":[142]
  46. 150 [143] ** STANDARD INPUT **
  47. 152 [139][198](UI$)[178]46[167][142]
  48. 155 [139]UI$[178][199](32)[167][142]
  49. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  50. 165 [142]
  51. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  52. 175 [142]
  53. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  54. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  55. 187 [142]
  56. 190 UI$[178]"":[142]
  57. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  58. 197 [141]250
  59. 200 [141]245
  60. 203 [139]WW[178]1[167][129]UQ[178]UB[164]UB[170]919
  61. 205 [139]WW[178]0[167] [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  62. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  63. 215 UZ[178]1:UV%[178][194](UT)
  64. 216 [137]300
  65. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  66. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  67. 219 [153]"LOAD";
  68. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  69. 222 [139]WW[178]0[167][129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  70. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  71. 230 [151]U1,U1%
  72. 232 [151]U2,U2%
  73. 233 [151]U4,U4%
  74. 234 [151]U3,U3%[171]1
  75. 235 [139] WW[178]1[167] [142]
  76. 236 [137]35
  77. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  78. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  79. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  80. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  81. 255 [142]
  82. 300 [143] ** MENU **
  83. 301 :
  84. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  85. 303 :
  86. 305 [153]"                MENU"
  87. 310 [153]" --------------------------------------"
  88. 315 [153]"       1.   BEGIN POINTS      "
  89. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  90. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  91. 330 [153]"       4.   MODIFICATION OF PROGRAM"
  92. 335 [153]"       5.   QUIT"
  93. 340 [153]" --------------------------------------"
  94. 345 [153]"       PRESS A NUMBER KEY (1-5) ";
  95. 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
  96. 351 [139][195](UR$)[177]1[167]300
  97. 352 US$[178]"":UT$[178]" (null)(null)RIGHT$(null)(null)(null)"
  98. 355 [145][197](UR$)[141]1000,400,500,600,396
  99. 360 [137]300
  100. 395 [143] ** RE-ENABLE STOP KEY AND END **
  101. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  102. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  103. 398 [153]"CONTLOAD":[128]
  104. 399 [141]875:[142]
  105. 400 [143] ** STUDENT INSTRUCTIONS **
  106. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  107. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  108. 420 [153]" (null)HERE ARE INSTRUCTIONS IN THE PROGRAM"
  109. 430 [153]" AS YOU NEED THEM, THE (null)VAL(null) WILL GIVE "
  110. 440 [153]" THEM TO YOU.
  111. 445 PRINT"  [202]UST REMEMBER THAT COORDINATE 'X' IS
  112. 450 [153]" GIVEN FIRST THEN THE 'Y', AND ALSO"
  113. 452 [153]" THAT THE FLASHING DOT IS THE POINT":[153]" THAT THE (null)VAL(null) WANTS.
  114. 453 PRINT"  [193]FTER '5' CORRECT ANSWERS YOU WILL     ADVANCE TO THE NEXT ROUND.
  115. 460 [141]835:UP[178]2:[141]850:[153]" (null)OTE:(null)O ADVANCE FROM ONE QUESTION
  116. 470 PRINT" TO THE NEXT PRESS THE [211][208][193][195][197] BAR.
  117. 475 [153]"RIGHT$F AT ANY TIME YOU WISH TO RETURN
  118. 480 PRINT" TO THE [205][197][206][213] PRESS H [210][197][212][213][210][206].":GOSUB835:UT$=" POINTS"
  119. 490 IFUZ=1THENSYSUP%:GOTO217
  120. 499 RETURN
  121. 500 REM ** TEACHER INSTRUCTIONS **
  122. 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  123. 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  124. 503 PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  125. 504 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  126. 505 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  127. 506 PRINT"   PLEASE CONTACT:"
  128. 507 PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  129. 508 PRINT"          3370 [208]HARMACY [193]VE.
  130. 509 [153]"          ATNGINCOURT, (null)NTARIO"
  131. 510 [153]"          LENANADA   (null)1(null) 2(null)4"
  132. 511 [153]"          (416) 499-4292"
  133. 512 UP[178]1:[141] 835:[141] 850:
  134. 513 [153]"     (null)ROGRAM (null)AME: (null)OINTS      
  135. 514 PRINT"     [215]RITTEN [194]Y  : [202]O [193]NN [195]OMITO"
  136. 515 PRINT"     [213]PGRADED [194]Y :          
  137. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  138. 518 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  139. 519 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  140. 520 PRINT"
  141. 521 [141]835:[141]850
  142. 530 [153]"  STR$ATA LINES MAY BE ADDED AT THE END OF
  143. 532 PRINT" THE PROGRAM IN ORDER TO ADD OR CHANGE
  144. 534 [153]" THE PICTURE'S THAT THE (null)VAL(null) CAN DRAW
  145. 535 PRINT" WHEN THE STUDENT TRIES TO 'CONNECT THE"
  146. 538 PRINT" DOTS.'
  147. 540 [153]"  ATNLL THAT IS NEEDED IS TO TYPE IN THE
  148. 542 PRINT" [216] & [217] COORDINATES ACCORDING TO YOUR
  149. 544 [153]" PICTURES COORDINATES.
  150. 546 PRINT" [212]HE FIRST VALUE IS THE NUMBER OF":PRINT" POINTS IN THE PICTURE.
  151. 570 [141]835:UT$[178]" POINTS"
  152. 590 [139]UZ[178]1[167][158]UP%:[137]217
  153. 599 [142]
  154. 600 [143] ** PROGRAM MODIFICATION INST **
  155. 601 [153]"LOAD":[151]UT,UL%
  156. 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  157. 645 [153]"  (null)HERE IS A LITTLE MACHINE LANGUAGE
  158. 650 PRINT" PROGRAM USED FOR MAKING THE GRID/BOARD
  159. 655 [153]" THIS ROUTINE IS TOTALLY RELOCATABLE.
  160. 660 GOSUB835:GOSUB850
  161. 665 PRINT" [202]UST CHANGE VARIABLE '[215]'[146] IN LINE 902
  162. 670 [153]" TO ANYTHING YOU LIKE.  (null)EMEMBERING THAT
  163. 675 PRINT" THE ROUTINE IS 12 CHARACTERS IN LENGTH"
  164. 680 PRINT" [193]LSO THAT THE AMOUNT LISTED IS THE
  165. 681 [153]" START OF THE ROUTINE NOT THE END.
  166. 685 GOSUB835
  167. 690 IFUZ=1THENSYSUP%:GOTO217:UT$=" POINTS"
  168. 699 RETURN
  169. 700 REM ** TO USE 8032 LOAD CBM4032 **
  170. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  171. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  172. 730 [158]UU[170]71
  173. 740 [128]
  174. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  175. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  176. 799 [158]1093:[128]
  177. 800 [143] ** T I T L E   P A G E **
  178. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  179. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  180. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  181. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  182. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  183. 812 [153]"STEP  WAIT
  184. 814 PRINT" [146]   [146][169]
  185. 816 [153]" WAIT  TAB((null)
  186. 818 PRINT"[223]  [146]
  187. 820 [153]"C O M M O D O R E
  188. 822 PRINT"EDUCATIONAL
  189. 824 [153]"SOFTWARE
  190. 826 REM ** COMMODORE LOGO **
  191. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  192. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  193. 830 T1$="":T2$="":T3$="":T4$="":I=0
  194. 832 GOTO300
  195. 835 REM ** SPACE BAR PRESS **
  196. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  197. 844 GETUI$:IFUI$<>" "THEN844
  198. 846 RETURN
  199. 850 REM ** PAGE DESIGN ROUTINE **
  200. 852 UP=UP+1
  201. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$,18)
  202. 860 PRINT" --------------------------------------"
  203. 864 IFUH<>0THEN870
  204. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  205. 870 UH=0:PRINT"":RETURN
  206. 875 REM ** PLEASE WAIT REMARK **
  207. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  208. 885 RETURN
  209. 900 REM ** SET UP VARIABLES **
  210. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  211. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  212. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  213. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  214. 905 UD$=""
  215. 906 UP$="                                       "
  216. 907 UT$=" [208][207][201][206][212][211]       [160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  217. 908 RETURN
  218. 910 REM ** SET VARIABLES **
  219. 912 W=842
  220. 915 GOSUB900
  221. 920 REM ** CHECK FOR 8032 **
  222. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  223. 930 IFPEEK(UB+40)<>96THENGOSUB700
  224. 931 REM ** MEMORY CHECK **
  225. 932 IF FRE(0)>2000THEN937
  226. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  227. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  228. 935 SYSUU+71
  229. 936 END
  230. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  231. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  232. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  233. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  234. 943 POKE1104,145:POKE1105,234:POKE1082,234
  235. 945 IFPEEK(50003)<>160THEN955
  236. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  237. 955 IFPEEK(50003)<>1THEN990
  238. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  239. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  240. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  241. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  242. 965 SYSUU+48:REM DISABLE STOP KEY
  243. 970 GOSUB800:REM TITLE
  244. 980 GOTO300:REM MENU
  245. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  246. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  247. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  248. 1100 REM**POINTS-BY JOANN COMITO-SUNY @ STONY BROOK
  249. 1110 REM**WRITTEN 7/30/78
  250. 1120 REM**REVISED 8/20/79**
  251. 1130 GOSUB2120
  252. 1140 D$=""
  253. 1150 R$="":GOSUB2160
  254. 1180 PRINT"[147]":UH=1:UG$=" [201]NSTRUCTIONS":POKEUT,UL%:GOSUB850
  255. 1185 PRINT"  [212]HE 64 WILL HELP YOU PRACTICE PLOTTING"
  256. 1190 PRINT" POINTS IN A PLANE."
  257. 1200 PRINT"  [201]F YOU ALREADY KNOW HOW TO LOCATE
  258. 1210 [153]" POINTS IN THE COORDINATE PLANE, YOU"
  259. 1220 [153]" CAN SKIP AHEAD."
  260. 1230 [153]"   STR$O YOU WANT TO SKIP AHEAD? ";:US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  261. 1235 [153]"LOAD":[151]UT,UU%
  262. 1240 [139]A$[178]"Y"[167]1540
  263. 1250 [141]2260
  264. 1260 [129]I[178]1[164]5
  265. 1270 [141]2370:[141]2410:[141]2450:B[178]20:[141]2850:[130]I
  266. 1330 [153]"LOAD DO YOU NEED MORE PRACTICE? ";:US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  267. 1340 [139]A$[178]"N"[167]1540
  268. 1350 [153]"LOAD":[151]UT,UL%:UH[178]1:[141]850
  269. 1355 [153]" (null)OW THE 64 WILL LET YOU PICK SOME POINTS."
  270. 1360 [153]"(null)YPE IN THE LOCATION OF THE POINT BY
  271. 1370 PRINT"TYPING IN THE FIRST NUMBER, WHICH IS 'X'
  272. 1380 [153]"THEN THE SECOND NUMBER WHICH IS 'Y'.
  273. 1390 PRINT"[212]HE 64 WILL SHOW YOU WHERE THE POINT IS
  274. 1400 [153]"LOCATED.  (null)AKE SURE THAT THE FIRST
  275. 1410 PRINT"NUMBER IS BETWEEN -16 & 16.  [205]AKE SURE
  276. 1420 [153]"THE SECOND NUMBER IS BETWEEN -11 & 11
  277. 1430 GOSUB835:PRINT"[147]":POKEUT,UU%
  278. 1440 GOSUB2260
  279. 1450 FORI=1TO5
  280. 1460 GOSUB2490:GOSUB2410:B=19:GOSUB2850:NEXT
  281. 1510 PRINT"[148]5[192][192]-10[192][192][192]-5[192][192][192][192]0[192][192][192][192]5[192][192][192][192]10[192][192][192]15X
  282. 1520 [153]"LOAD DO YOU STILL NEED PRACTICE? ";:US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  283. 1530 [139]A$[178]"Y"[167]1440
  284. 1540 UH[178]1:[153]"LOAD":[151]UT,UL%:[141]850
  285. 1545 [153]" (null)OW THE 64 WILL SHOW YOU SOME POINTS.
  286. 1550 PRINT" [217]OU TYPE IN THE LOCATION OF THE POINT
  287. 1560 [153]" BY TYPING IN THE FIRST NUMBER, WHICH"
  288. 1570 [153]" IS 'X' THEN THE SECOND NUMBER IS 'Y'. "
  289. 1580 [141]835:[153]"LOAD":[151]UT,UU%
  290. 1590 [141]2260
  291. 1600 [129]I[178]1[164]5
  292. 1610 [141]2370:[141]2370:[141]2410:B[178]19:[141]2850:[141]2560:[130]
  293. 1670 [153]"LOAD DO YOU WANT MORE PRACTICE? ";:US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  294. 1680 [139]A$[178]"Y"[167]1590
  295. 1690 [153]"LOAD":[151]UT,UL%:[141]850
  296. 1695 [153]"(null)HE 64 WILL GIVE YOU THE LOCATION OF A"
  297. 1700 [153]"POINT.  (null)OU MUST MOVE THE DOT UNTIL"
  298. 1710 [153]"IT IS AT THE CORRECT LOCATION."
  299. 1760 [153]"  '8' TO MOVE DOT (null)P     8"
  300. 1770 [153]"  '4' TO MOVE (null)EFT       (null)"
  301. 1780 [153]"  '6' TO MOVE (null)IGHT    4TAN TAN6"
  302. 1790 [153]"  '2' TO MOVE STR$OWN       (null)"
  303. 1800 [153]"                         2"
  304. 1810 [153]:[153]"ATNFTER THE DOT IS AT THE CORRECT"
  305. 1820 [153]"LOCATION HIT THE RETURN KEY."
  306. 1830 [153]:[153]"(null)HE 64 WILL GIVE YOU SEVERAL POINTS TO
  307. 1840 PRINT"PLOT. [193]FTER THE LAST POINT PET WILL
  308. 1850 [153]"'CONNECT THE DOTS.' IF YOU HAVE
  309. 1860 PRINT"LOCATED THE DOTS CORRECTLY YOU SHOULD
  310. 1870 [153]"SEE A PICTURE.
  311. 1880 GOSUB835:PRINT"[147]":POKEUT,UU%
  312. 1890 GOSUB2950
  313. 1900 IFN=1000THEN1960
  314. 1910 GOSUB3090
  315. 1920 D=22:R=1:GOSUB1980
  316. 1930 PRINT"TRY ANOTHER PICTURE?              [157][157][157][157][157][157][157][157][157][157][157][157][157]";
  317. 1935 US$="YN":UL=1:GOSUB35:A$=UR$
  318. 1940 IFA$="Y"THEN1890
  319. 1950 PRINT"[147]HAVE A GOOD DAY!":GOSUB835:RETURN
  320. 1960 PRINT"[147]  SORRY, THE 64 IS OUT OF PICTURES.":GOSUB835:RETURN
  321. 1980 P$=""+LEFT$(R$,R)+LEFT$(D$,D):PRINTP$;:RETURN
  322. 2060 PS=0:P=0:C1$=""
  323. 2070 PS=UM+40*D+R:P=PEEK(PS)
  324. 2090 IFP>57THENP=P+128
  325. 2100 C1$=CHR$(P):RETURN
  326. 2120 FORI=WTOW+12:READJ:POKEI,J:NEXTI
  327. 2140 DATA169,91,162,0,157,45,128,232,224,31,208,248,96
  328. 2150 RETURN
  329. 2160 PRINT"[147]":PRINTTAB(17)"POINTS[146]"
  330. 2180 PRINT"":PRINTTAB(12)"BY JO ANN COMITO"
  331. 2190 PRINT"    COPYRIGHT, SUNY STONY BROOK, 1978"
  332. 2200 FORI=1TO30
  333. 2210 R=INT(RND(1)*999+UM)
  334. 2220 IFPEEK(R)<>32THEN2210
  335. 2230 POKER,81:NEXT
  336. 2250 FORI=1TO2000:NEXTI:RETURN
  337. 2260 REM**DRAW AXES**
  338. 2270 PRINT"[147]"
  339. 2280 FORI=1TO21:AD=UM+5+I*40:MB=INT(AD/256):LB=AD-256*MB:POKEW+5,LB:POKEW+6,MB
  340. 2290 SYSW:NEXT
  341. 2310 POKE59409,60
  342. 2320 PRINT""TAB(20)"Y"
  343. 2330 PRINTTAB(19)"10[157][221][157][221][157][221][157][221][157]5[157][221][157][221][157][221][157][221][157]0[157][221][157][221][157][221][157][221][157][157]-5[157][221][157][221][157][221][157][221][157][157][157]-10"
  344. 2340 D=11:R=3:GOSUB1980
  345. 2350 PRINT"-15[192][192]-10[192][192][192]-5[192][192][192][192]0[192][192][192][192]5[192][192][192][192]10[192][192][192]15X":RETURN
  346. 2370 X=INT(RND(1)*31)+1:Y=INT(RND(1)*21)+1:X1=X-15:Y1=11-Y:RETURN
  347. 2410 D=Y:R=X+5:GOSUB2060:GOSUB1980
  348. 2430 PRINT"[209]":RETURN
  349. 2450 D=22:R=1:GOSUB1980
  350. 2470 PRINT" THIS POINT IS LOCATED AT            [157][157][157][157][157][157][157][157][157][157][157][157] ("X1","Y1")":RETURN
  351. 2490 D=22:R=1:GOSUB1980
  352. 2510 PRINTLEFT$(UD$,24)"       CHOOSE A LOCATION X[146]         [157][157][157][157][157][157][157][157]";
  353. 2512 US$="-0123456789":UL=3:GOSUB35:X1=VAL(UR$)
  354. 2514 IFX1<-16ORX1>16THENPRINT"[145]";:GOTO2510
  355. 2516 PRINT"[145]       CHOOSE A LOCATION Y[146]         [157][157][157][157][157][157][157][157]";
  356. 2517 US$="-0123456789":UL=3:GOSUB35:Y1=VAL(UR$)
  357. 2518 IFY1<-11ORY1>11THEN2516
  358. 2520 IFX1<-16ORX1>16ORX1<>INT(X1)ORY1<-11ORY1>11ORY1<>INT(Y1)THEN2490
  359. 2530 X=X1+15:Y=11-Y1:RETURN
  360. 2560 D=22:R=1:GOSUB1980
  361. 2570 PRINTLEFT$(UD$,24)"     WHERE IS THE POINT LOCATED X[146]     [157][157][157][157]";
  362. 2572 US$="-0123456789":UL=3:GOSUB35:X2=VAL(UR$)
  363. 2573 IFX2<-16ORX2>16THENPRINT"[145]";:GOTO2570
  364. 2575 PRINTLEFT$(UD$,24)"     WHERE IS THE POINT LOCATED Y[146]     [157][157][157][157]";
  365. 2577 US$="-0123456789":UL=3:GOSUB35:Y2=VAL(UR$)
  366. 2578 IFY2<-11ORY2>11THEN2575
  367. 2580 IFX2=X1ANDY2=Y1THENPRINTLEFT$(UD$,24)"               RIGHT[146]                 "
  368. 2585 IFX2=X1ANDY2=Y1THEN POKEPS,P:GOTO2600
  369. 2590 PRINTLEFT$(UD$,24)"                 WRONG[146]               "
  370. 2595 FORK=1TO1500:NEXT:GOTO2560
  371. 2600 FORK=1TO1500:NEXT
  372. 2610 PRINTLEFT$(UD$,24)"                                       ":RETURN
  373. 2630 R=20:D=11:GOSUB2060:GOSUB1980
  374. 2650 X2=0:Y2=0
  375. 2660 PRINT"[209][157]";
  376. 2670 GETM$:IFM$=""THEN2670
  377. 2675 IFM$=UX$THENWW=1:GOSUB195:PRINT"";:WW=0:GOTO2670
  378. 2680 IFM$<>"2"ANDM$<>"4"ANDM$<>"8"ANDM$<>"6"ANDM$<>CHR$(13)THEN2670
  379. 2690 IFM$=CHR$(13)THEN2790
  380. 2700 IFM$="2"THENY2=Y2-1:IFY2<-10THENY2=Y2+1:GOTO2670
  381. 2710 IFM$="2"THENPRINTC1$;"[157]";:D=D+1:GOSUB2060:PRINT"[209][157]";
  382. 2720 IFM$="4"THENX2=X2-1:IFX2<-15THENX2=X2+1:GOTO2670
  383. 2730 IFM$="4"THENPRINTC1$;"[157][157]";:R=R-1:GOSUB2060:PRINT"[209][157]";
  384. 2740 IFM$="8"THENY2=Y2+1:IFY2>10THENY2=Y2-1:GOTO2670
  385. 2750 IFM$="8"THENPRINTC1$;"[157][145]";:D=D-1:GOSUB2060:PRINT"[209][157]";
  386. 2760 IFM$="6"THENX2=X2+1:IFX2>15THENX2=X2-1:GOTO2670
  387. 2770 IFM$="6"THENPRINTC1$;"[157]";:R=R+1:GOSUB2060:PRINT"[209][157]";
  388. 2780 GOTO2670
  389. 2790 IFP(I,1)=X2ANDP(I,2)=Y2THENRETURN
  390. 2800 D=23:R=18:GOSUB1980
  391. 2810 PRINT"WRONG[146]";:FORK=1TO900:NEXT:PRINT"[157][157][157][157][157][157]      ";
  392. 2820 D=11-Y2:R=X2+20:GOSUB1980
  393. 2830 PRINTC1$;
  394. 2840 GOTO2630
  395. 2850 FORK=1TOB
  396. 2870 D=Y:R=X+5
  397. 2880 IFK/2=INT(K/2)THENGOSUB1980:PRINTC1$:GOTO2920
  398. 2890 C$="[209]"
  399. 2900 GOSUB1980
  400. 2910 PRINTC$
  401. 2920 FORJ=1TO100:NEXTJ
  402. 2930 NEXTK
  403. 2940 RETURN
  404. 2950 REM N=#PTS IN PICTURE
  405. 2970 READN
  406. 2980 IFN=1000THENRETURN
  407. 2990 GOSUB2260
  408. 3000 FORI=1TON:READP(I,1),P(I,2):NEXT
  409. 3010 P(N+1,1)=P(1,1):P(N+1,2)=P(1,2)
  410. 3020 FORI=1TON
  411. 3030 X1=P(I,1):Y1=P(I,2)
  412. 3040 X=X1+15:Y=11-Y1
  413. 3050 GOSUB2450
  414. 3060 GOSUB2630
  415. 3070 NEXTI
  416. 3080 RETURN
  417. 3090 FORI=1TON
  418. 3110 X1=P(I,1):X2=P(I+1,1):Y1=P(I,2):Y2=P(I+1,2)
  419. 3120 IFX1=X2ANDY1<Y2THENC$="[221]":C=7:GOTO3230
  420. 3130 IFX1=X2ANDY1>Y2THENC$="[221]":C=8:GOTO3230
  421. 3140 IFX1<X2ANDY1=Y2THENC$="[192]":C=3
  422. 3150 IFX1<X2ANDY1<Y2THENC$="[206]":C=1
  423. 3160 IFX1>X2ANDY1<Y2THENC$="[205]":C=2
  424. 3170 IFX1<X2ANDY1=Y2THENC$="[192]":C=3
  425. 3180 IFX1>X2ANDY1=Y2THENC$="[192]":C=4
  426. 3190 IFX1>X2ANDY1>Y2THENC$="[206]":C=5
  427. 3200 IFX1<X2ANDY1>Y2THENC$="[205]":C=6
  428. 3210 J=ABS(X1-X2)-1
  429. 3220 GOTO3240
  430. 3230 J=ABS(Y1-Y2)-1
  431. 3240 D=11-Y1:R=X1+20
  432. 3250 FORK=1TOJ
  433. 3260 IFC=1THEND=D-1:R=R+1:GOSUB1980:PRINTC$:NEXTK
  434. 3270 IFC=2THEND=D-1:R=R-1:GOSUB1980:PRINTC$:NEXTK
  435. 3280 IFC=3THENR=R+1:GOSUB1980:PRINTC$:NEXTK
  436. 3290 IFC=4THENR=R-1:GOSUB1980:PRINTC$:NEXTK
  437. 3300 IFC=5THEND=D+1:R=R-1:GOSUB1980:PRINTC$:NEXTK
  438. 3310 IFC=6THEND=D+1:R=R+1:GOSUB1980:PRINTC$:NEXTK
  439. 3320 IFC=7THEND=D-1:GOSUB1980:PRINTC$:NEXTK
  440. 3330 IFC=8THEND=D+1:GOSUB1980:PRINTC$:NEXTK
  441. 3340 NEXTI:RETURN
  442. 3360 REM**DATA PICTURE #1**
  443. 3370 DATA9,-5,1,-5,-3,-3,-3,-3,-1,-1,-1
  444. 3380 DATA-1,-3,1,-3,1,1,-2,4
  445. 4000 DATA1000
  446.